home *** CD-ROM | disk | FTP | other *** search
- object fmDavid: TfmDavid
- Left = 20
- Top = 27
- Width = 525
- Height = 447
- Caption = '256 Color & Mouse Events Demo'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 100
- OnCreate = FormCreate
- OnShow = FormShow
- TextHeight = 16
- object Label1: TLabel
- Left = 136
- Top = 104
- Width = 101
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'Total Regions'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 132
- Top = 172
- Width = 125
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'Last Click was on:'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 8
- Top = 244
- Width = 121
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = 'Mouse Down Event'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 136
- Top = 244
- Width = 121
- Height = 17
- Alignment = taCenter
- AutoSize = False
- Caption = 'Mouse Up Event'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object HotMap1: THotMap
- Left = 264
- Top = 84
- Width = 245
- Height = 329
- BackColor = clWhite
- FillType = 0
- Stretch = True
- CurrentRgn = 0
- ColorMode = False
- DragAllowed = False
- MouseHotX = 15
- MouseHotY = 15
- OnRegionMouseDown = HotMap1RegionMouseDown
- OnRegionMouseUp = HotMap1RegionMouseUp
- MyTag = 0
- MyTagMsg = 0
- NumOfRgns = {0000}
- end
- object BiPict1: TBiPict
- Left = 248
- Top = 92
- Width = 37
- Height = 33
- Visible = False
- BevelSize = 0
- BevelStyle = 1
- StretchBlt = True
- Picture_Data = {<image000. � (